home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 93 / CDMM_93_2.ISO / Project Nomads / nomads_demo_eng.exe / SIMPLESPELL.TCL < prev    next >
Encoding:
Text File  |  2001-12-15  |  1.6 KB  |  69 lines
  1. #
  2. #   Zustands-▄berwachungs-Script
  3. #   State Watch Script
  4. #
  5. #   Spell
  6. #
  7. #   created:    22-Jun-2000 af
  8. #   
  9. #   (C) COPYRIGHT 2000 RADONLABS GMBH
  10. #
  11.  
  12.  
  13. # --------------------------------------------------------
  14. #                     S P E L L
  15. # --------------------------------------------------------
  16. proc simplespell_normal {} {
  17.  
  18.     # kann den Artefakt-Mode nicht verlassen. Kann nur aufgesammelt
  19.     # werden
  20.     if {[.iscollected] == "true"} {
  21.         .announcestate backpack
  22.     }
  23. }
  24.  
  25. proc simplespell_backpack {} {
  26.  
  27.     # Moeglich: ausgeworfen (Nicht mehr "gesammelt"), im
  28.     # Menue gezeigt (sichtbar) oder im QuickSlot.
  29.     if {[.iscollected] == "false"} {
  30.         .announcestate normal
  31.     } elseif {[.isvisible] == "true"} {
  32.         .announcestate menue
  33.     } elseif {[.isinsidequickslot] == "true"} {
  34.         .announcestate inquickslot
  35.     }
  36. }
  37.  
  38. proc simplespell_inquickslot {} {
  39.  
  40.     # kann sich verbrauchen (nur hier!) oder sichtbar werden 
  41.     # oder ausgeworfen werden.
  42.     if {[.iscollected] == "false"} {
  43.         .announcestate normal
  44.     } elseif {[.isvisible] == "true"} {
  45.         .announcestate menue
  46.     } elseif {[.isinsidequickslot] == "false"} {
  47.         .announcestate backpack
  48.     } elseif {[.getcharges] <= 0} {
  49.         .setremoveable true
  50.     }
  51. }
  52.  
  53. proc simplespell_menu {} {
  54.  
  55.     # Auswerfen oder Quickslot/Ruecknehmen (beides unsichtbar)
  56.     if {[.isvisible] == "false"} {
  57.         .announcestate backpack
  58.     } elseif {[.iscollected] == "false"} {
  59.         .announcestate normal
  60.     }
  61. }
  62.  
  63. proc simplespell_cinematic {} {
  64.  
  65.     # empty
  66. }    
  67.  
  68.  
  69.